FRO<-function(x,t,L50)
{
  mat=100*(sum(x>L50))/length(x$len) #contabiliza a porcentagem de indivduos na amostra que so maiores que o L50
  lot=100*(sum(sum(x<VLOT(t)*1.1) - sum(x<VLOT(t)*0.9)))/length(x$len) #o lot vai ser a porcentagem de indivduos que esto no intervalo de comprimentos 10% menor a 10% maior que o VLOT.
  mgr=100 *(sum(x>VLOT(t)*1.1))/length(x$len) # o mgr  a porcentagem de indivduos na amostra que tem tamanho maior que 10% a mais do VLOT.
  res=list(mat=mat, lot=lot, mgr=mgr) # resulta os valores de mat, lot e mgr
  return(res)
}
